use strict;
use warnings;

use Test::Harness;
use FindBin;
use File::Spec qw();
use lib File::Spec->catdir($FindBin::Bin, qw(.. lib));
use File::Find qw(find);

my @testFiles = ();
find(
    { wanted => sub{ push @testFiles, $_ if /^.*\.t$/ and !/AllTests.t/ and !/^20/ } },
    File::Spec->catdir($FindBin::Bin, qw(.. t))
);

runtests(@testFiles);

=pod

=head1 NAME

AllTests - run all tests

=head1 AFFILIATION

A test as part of beautnum project http://code.google.com/p/beautnum/

=head1 DESCRIPTION

AllTests attempts to run all tests in the t/ directory.

=head1 CONFIGURATION

prove t/AllTests.t

=head1 AUTHOR

Michael Milewski <saramic@gmail.com>

=head1 ACKNOWLEDGMENTS

Adapted from policies by Jeffrey Ryan Thalhammer <thaljef@cpan.org>,
Based on App::Fluff by Andy Lester, "<andy at petdance.com>"

=head1 COPYRIGHT

Copyright (c) 2008 Michael Milewski <saramic@gmail.com>.  All rights reserved.

This program is free software distributed under the GNU General Public License v3
<http://www.gnu.org/licenses/gpl.html>.

=cut